0 REM *****************************
1 REM *     SPRITE - FACTORY      *
2 REM *                           *
3 REM *            BY             *
4 REM *                           *
5 REM *        JAN JOECKEL        *
6 REM *****************************
10 PRINT CHR$(147):POKE 53281,0:POKE 53280,0
20 FOR S=1 TO 6:PRINT:NEXT
25 REM *** MASCHINENPROGRAMM LADEN ***
30 PRINT CHR$(155);"        LOADING SPRITE FACTORY..."
40 IF L=0 THEN L=1:LOAD"SPR.FACTORY  .MC",8,1
50 REM ****** SPRITES EINLESEN ******
55 FOR S=0 TO 127:POKE 832+S,0:NEXT
60 FOR S=0 TO 41:READ A:POKE 832+S,A:NEXT
70 FOR S=0 TO 23:READ A:POKE 896+S,A:NEXT
80 SYS 12288
1000 REM ******* SPRITE DATEN *******
1010 DATA 255,0,0,254,0,0,252,0,0,254,0,0,255,0,0,255,128,0
1020 DATA 223,192,0,143,224,0,7,240,0,3,248,0,1,252,0,0,248,0,0,112,0,0,32,0
1030 DATA 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0